;+
; NAME: 
;       DEFINE_BITWISE_FLAGS
;
; PURPOSE: 
;       Define several system variables with the bitwise flag
;       definitions for use with the distance-onmibus repository.  If
;       definitions for bitwise flags change, this is the central
;       repository of that knowledge.
;
; CALLING SEQUENCE: 
;       define_bitwise_flags
;
; INPUTS:
;       NONE
;
; KEYWORD PARAMETERS: 
;       NONE
;
; OUTPUTS:
;       NONE  (Sets bitwise flag system variables)
;
; NOTES:
;       Bitwise flags stored here:
;          Radial Velicity Types (!RV)
;          Associated Features (!AF)
;          KDA Notes (!KDAN)
;
;       Flag official definitions in README_bgps_distance.txt
;
; MODIFICATION HISTORY:
;
;       Created:  06/04/10, TPEB -- Initial Version, defines
;                                   universally the bitwise flags used
;                                   in the distance-onmibus repository
;       Modified: 07/08/10, TPEB -- Added RV & AF flags
;-

PRO DEFINE_BITWISE_FLAGS
  
  defsysv, '!RV', {HCOP:1, N2HP:2, CS21:4, NH3:8, CS54:16, CSUN:32, GRS13CO:64}
  defsysv, '!AF', {IRDC_EYE:1, UCHII:2, H2O:4, CH3OH:8, IRDC_ALG:16, HISA:32}
  defsysv, '!KDAN', {TP:1, IRDC:2, HISA:4, NOIRDC:8, NOHISA:16, IR24:32}
  
  RETURN
END
